home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1996 March / Amiga-CD 1996 #3.iso / demos / studio-software / canondisk_3.30 / install-driver < prev    next >
Text File  |  1996-01-19  |  56KB  |  1,895 lines
  1. ; $VER: Canon Driver Disk V3.30 (27.11.95)
  2. ; Copyright (C) 1992-95 Wolf Faust
  3.  
  4. (complete 0)
  5. (delopts "oknodelete" "force" "askuser")
  6.  
  7. ;**** English text
  8.  
  9. (set #welcome
  10. (cat "\nIntermediate: printer drivers get installed on the used system disk.\n"
  11.     "Expert:  may install printer drivers on any wanted disks.\n\n"
  12. ))
  13. (set #welcome-pirate
  14. (cat "\nWelcome to the Canon printer software!\n\n"
  15.     "Copyright (C) 1992-95 by Wolf Faust\n"
  16.     "Distribution by Canon Europe N.V.\n"
  17.     "\nTHIS DISK MAY NOT BE DISTRIBUTED WITHOUT\n"
  18.         "PRIOR PERMISSION IN WRITING BY WOLF FAUST\n AND/OR CANON EUROPE N.V.!\n"
  19. ))
  20. ;--------------
  21. (set #bad-kick
  22. (cat    "\nYour system software is very old. "
  23.     "You must use at least Kickstart 2.04 for all CanonDisk programs. "
  24. ))
  25. ;--------------
  26. (set #diskbased
  27. (cat "What kind of system disk are you using?"
  28. ))
  29. (set #diskbased-choices1
  30. (cat "Hard disk or similar mass storage device"
  31. ))
  32. (set #diskbased-choices2
  33. (cat "Two or more floppy drives - No hard disk."
  34. ))
  35. (set #diskbased-choices3
  36. (cat "A single floppy drive     - No hard disk."
  37. ))
  38. (set #diskbased-help
  39. (cat "\nThe Canon software requires more disk space than is available "
  40.     "on a single floppy. The installation will help users of floppy "
  41.     "systems to get enough disk space in order to install the Canon software.\n\n"
  42.     @askoptions-help
  43. ))
  44. ;--------------
  45. (set #w-studio
  46. (cat "Select the action(s) to perform."
  47. ))
  48. (set #w-studio-help
  49. (cat "\nCanonDisk is divided in two independent parts: "
  50.     "printer driver and CanonStudio print program. "
  51.     "You can now select wich parts should be un- or installed.\n\n".
  52.     @askoptions-help
  53. ))
  54. (set #w-studio-choices1
  55. (cat "Uninstall Canon drivers"
  56. ))
  57. (set #w-studio-choices2
  58. (cat "Install Canon Workbench driver"
  59. ))
  60. (set #w-studio-choices3
  61. (cat "Install CanonStudio application program"
  62. ))
  63. ;--------------
  64. (set #format
  65. (cat "\nYou need %ld empty floppy disk(s) in order to install the requested software. "
  66.     "Generate the empty floppy disk(s) by using the 'Format Disk...' Workbench "
  67.     "menu item.\n\nPlease assign name(s) (for instance \"Canon\") to the disk(s) that help you identify them later. "
  68. ))
  69. ;--------------
  70. (set #abortunpack
  71. (cat "\nError occured while running the installation decompression program. "
  72.     "The error occured during decompressing of the file:\n\n\"%s\"\n\n"
  73. ))
  74. ;--------------
  75. (set #abortnochoice
  76. (cat "You didn't select an action to perform. Start installation again and select an action to perform."
  77. ))
  78. ;--------------
  79. (set #cfm-delete
  80. (cat "\n\nWarning\n\n"
  81.     "Make a backup of your system disk before deleting old drivers.\n"
  82.     "Shall I really delete all old Canon printer drivers now?\n"
  83. ))
  84. (set #cfm-delete-help
  85. (cat "\nYou may now delete old Canon drivers and their settings.\n\n"
  86. ))
  87. (set #cfm-delete-1
  88. (cat "Yes, delete."
  89. ))
  90. (set #cfm-delete-2
  91. (cat "No, continue"
  92. ))
  93. ;--------------
  94. (set #w-emul
  95. (cat "What printer do you have?"
  96. ))
  97. (set #w-emul-help
  98. (cat "\nThis disk includes several printer drivers for various "
  99.     "Canon printers. "
  100.     "In case your printer is not listed, have a look into your printers user manual for "
  101.     "finding the emulation supported by your printer.\n\n"
  102.     "NOTE: often printers support more than one emulation. "
  103.     "You may have to try several emulations to find the one "
  104.     "fitting your needs best!\n\n"
  105.     @askchoice-help
  106. ))
  107. ;--------------
  108. (set #w-driver #w-emul)
  109. (set #w-driver-help #w-emul-help)
  110. ;--------------
  111. (set #ask-sys
  112. (cat "\nIn which disk or drawer should the Canon printer driver be installed?"
  113. ))
  114. (set #ask-sys-help
  115. (cat "\nThis section lets you choose in which drawer or on which disk the "
  116.     "Studio printer driver should be installed. "
  117.     "The driver should normally go into the \"Printers:\" or \"devs:printers\" directory "
  118.     "of your system disk.\n\n"
  119.     @askdir-help
  120. ))
  121. ;--------------
  122. (set #yellspace
  123. (cat "\nThis installation requires >%ld bytes free on the disk \"%s\". "
  124.     "You may now delete unnecessary files using Workbench or Shell. "
  125.     "This installation script can also delete files now in order to free space. "
  126.     "You will be asked for permission before deleting each file.\n\n"
  127.     "DO MAKE A BACKUP OF YOUR SYSTEM DISKS BEFORE DELETING FILES.\n\n"
  128. ))
  129. ;--------------
  130. (set #tdel0 "Utilities/Clock")
  131. (set #tdel1 "Devs/Printers/Generic")
  132. (set #tdel2 "C/SetFont")
  133. (set #tdel3 "C/Edit")
  134. (set #tdel4 "C/Eval")
  135. (set #tdel5 "C/DiskChange")
  136. (set #tdel6 "C/FileNote")
  137. (set #tdel7 "C/Lock")
  138. (set #tdel8 "C/Search")
  139. (set #tdel9 "C/Sort")
  140. (set #tdel10 "C/MagTape")
  141. (set #tdel11 "C/MakeLink")
  142. (set #tdel12 "C/RemRad")
  143. (set #tdel13 "C/Which")
  144. (set #tdel14 "C/ChangeTaskPri")
  145. (set #tdel15 "C/Join")
  146. (set #tdel16 "System/NoFastMem")
  147.  
  148. (set #del0 "Displays the system time")
  149. (set #del1 "A generic text printer driver")
  150. (set #del2 "Defines system font")
  151. (set #del3 "A line editor")
  152. (set #del4 "Evaluate math expressions")
  153. (set #del5 "Recognize a diskchange")
  154. (set #del6 "Add/Remove filenotes")
  155. (set #del7 "Lock files from deletion")
  156. (set #del8 "Search a file")
  157. (set #del9 "Sort a file")
  158. (set #del10 "Controls tape backup devices")
  159. (set #del11 "Make a disk link")
  160. (set #del12 "Remove recoverable ram drive")
  161. (set #del13 "Shows location of CMD file")
  162. (set #del14 "Changes task priority")
  163. (set #del15 "Joins/Merges files")
  164. (set #del16 "Disables any fast memory")
  165. ;--------------
  166. (set #full-delete
  167. (cat "\nCan I delete the file '%s'?\n\n"
  168.     "The function of this program:\n\n"
  169.     "%s"
  170. ))
  171. (set #full-delete-help
  172. (cat "\nYour system disk doesn't offer the disk space required for "
  173.     "installing the printer driver. The installation program "
  174.     "can now delete files from your system disk that are often unused. "
  175.     "If you need one of the programs, you might skip deletion. "
  176.     "However, skipping might result in the installation failing "
  177.     "if not enough disk space could be freed. "
  178. ))
  179. (set #full-delete-1
  180. (cat "Yes, delete."
  181. ))
  182. (set #full-delete-2
  183. (cat "No, continue"
  184. ))
  185. ;--------------
  186. (set #tofull
  187. (cat "Your disk/device %s: still doesn't offer enough free disk space "
  188.     "for installing the printer driver. The requested installation "
  189.     "requires at least %ld bytes of free disk space.\n"
  190.     "After deleting/moving unnecessary files in order to make space, try installing again.\n\n"
  191. ))
  192. (set #tofull2
  193. (cat "Your disk/device %s: doesn't offer enough free disk space "
  194.     "for installing the printer driver. I couldn't find "
  195.     "any unnecessary files for deletion in order to make space free. Please have a look "
  196.     "at the files stored on the disk and delete any unnecessary ones. "
  197.     "The installation requires at least %ld bytes of free disk space.\n"
  198.     "After deleting/moving unnecessary files in order to make space, try installing again.\n\n"
  199. ))
  200. ;--------------
  201. (set #nodevice
  202. (cat "\nWarning\n\n It seems the 'printer.device' file is not "
  203.     "available in your 'DEVS:' directory. This file is required "
  204.     "for printing and always comes with your original Workbench "
  205.     "disks.\n\n"
  206.     "Please make the printer.device file available after installing the Canon software."
  207. ))
  208. ;--------------
  209. (set #nopardevice
  210. (cat "\nWarning\nIt seems the 'parallel.device' file is not "
  211.     "available in your 'DEVS:' directory. Unless you use the serial port or "
  212.     "an expansion board for printing, this file is required "
  213.     "for printing. It does come with your Workbench "
  214.     "disks. Without this file applications might be unable to access the printer port. \n\n"
  215.     "Please make the parallel.device file available after installing Canon software "
  216.     "if problems accessing the printer appear."
  217. ))
  218. ;--------------
  219. (set #noenv
  220. (cat "There is no volume/device/assign 'ENV:' available. "
  221.     "The 'ENV:' volume is usually created by your system's 'startup-sequence' "
  222.     "located in the 'S:' volume. It seems you are using a custom startup-sequence. "
  223.     "Please make sure there is an ENV: volume created by your system disk. "
  224.     "See your system and/or Canon software manual for help."
  225. ))
  226. ;--------------
  227. (set #noenvarc
  228. (cat "There is no volume/device/assign 'ENVARC:' available. "
  229.     "The 'ENVARC:' volume is usually created by your system during booting. "
  230.     "It seems you are using a custom boot procedure. "
  231.     "Please make sure there is an ENVARC: volume created by your system disk. "
  232.     "See your system and/or Canon software manual for help."
  233. ))
  234. ;--------------
  235. (set #ask-prefs
  236. (cat "\nIn which disk or drawer should the printer preferences program(s) be installed?"
  237. ))
  238. (set #ask-prefsdisk
  239. (cat "\nSelect the %ld. empty disk."
  240. ))
  241. (set #ask-prefs-help
  242. (cat "\nThis section lets you choose in which drawer or on which disk the "
  243.     "Canon printer driver preferences program should be installed. "
  244.     "These should normally go into the \"sys:prefs\" directory of your system "
  245.     "disk.\n\n"
  246.     @askdir-help
  247. ))
  248. ;--------------
  249. (set #finalmsg
  250. (cat "Your requested driver has been installed. The name of the driver is\n\"%s"
  251.     "\"\nand should now be selected in the Workbench preferences program \"Printer\".\n"
  252.     "The Canon driver preferences program has been saved as\n\"%s"
  253.     "\"\nand should now be used to adjust the driver to your needs.\n"
  254.     "Please adjust all settings to your printer."
  255. ))
  256. ;--------------
  257. (set #wrongdither
  258. (cat "\n\nWARNING: Your Workbench preferences is setup WRONG.\n\n"
  259.     "Please select \"Ordered\" dithering in preferences "
  260.     "(in \"PrinterGfx\"). Always set the Workbench preferences to \"Ordered\" "
  261.     "Dithering is controlled by the Canon \"%s\" preferences program.\n"
  262.     "Also select a density above 2 and disable the color correction\n"
  263.     "I will now try to start Workbench preferences for you."
  264. ))
  265. ;--------------
  266. (set #ask-studio
  267. (cat "\nSelect the disk or drawer the 'CanonStudio' application drawer should be created in?"
  268. ))
  269. (set #ask-studiodisk
  270. (cat "\nSelect the %ld. empty disk."
  271. ))
  272. (set #ask-studio-help
  273. (cat "\nThis section lets you choose in which drawer or on which disk the "
  274.     "CanonStudio application program should be installed. "
  275.     "The program can be installed to any disk/drawer you like. "
  276.     "The selected disk should have at least 350 KByte free space.\n\n"
  277.     @askdir-help
  278. ))
  279. ;--------------
  280. (set #tofullstudio
  281. (cat "Your disk/device %s: doesn't offer enough free disk space "
  282.     "for installing CanonStudio. The requested installation "
  283.     "requires at least %ld bytes of free disk space.\n"
  284.     "After deleting/moving unnecessary files in order to make space, try installing again.\n\n"
  285. ))
  286. ;--------------
  287. (set #pagestream
  288. (cat "\n\nDo you want to install a driver for the "
  289.     "PageStream 2.2x (not V3.x!) DTP program?\n\n"
  290. ))
  291. (set #pagestream-help
  292. (cat "\nThis disk comes with a special printer driver for the PageStream 2.x "
  293.     "program. In case you own this DTP package, you can use this faster "
  294.     "printer driver, offering a 200%% speed increase.\n"
  295. ))
  296. (set #pagestream-yes
  297. (cat "Yes"
  298. ))
  299. (set #pagestream-no
  300. (cat "No"
  301. ))
  302. (set #ask-pagestream
  303. (cat "\nIn which drawer should the PageStream V2.2 drivers (BJ2x0, or CanonBJCx00) be saved?"
  304. ))
  305. (set #ask-pagestream-help
  306. (cat "\nThis section lets you choose in which drawer the PageStream driver should be saved. "
  307.     "These should normally go into the PageStream \"Printers\" directory.\n\n"
  308.     @askdir-help
  309. ))
  310. ;--------------
  311. (set #sorry
  312. (cat "\n\nSorry, this disk does not include the requested software. "
  313.     "There simply wasn't enough disk space left for your wanted driver. "
  314.     "Please contact your dealer or the Canon Hotline and ask for a different disk "
  315.     "containing a driver for your printer."
  316. ))
  317. ;---------------
  318. (set #ask-docs
  319. (cat "\nIn which drawer should the documentation be saved?"
  320. ))
  321. (set #ask-docs-help
  322. (cat "\nThis section lets you choose in which drawer the Canon driver documentation should be saved.\n\n"
  323.     @askdir-help
  324. ))
  325. (set #abortdocs
  326. (cat "\nThis installation requires >120000 bytes free on the volume "
  327.     "where you wish to install the documentation. Please make this space "
  328.     "available and then re-install.\n\n"
  329. ))
  330. ;--------------
  331. (set docfile "Readme")
  332. ;--------------
  333. (set #waitmsg
  334. (cat "\n\n\n\nWorking. Please wait..."
  335. ))
  336.  
  337.  
  338.  
  339. ;**** German
  340. (if (= @language "deutsch")
  341. (
  342.     (set #welcome
  343.     (cat "\nBei \"Intermediate\" werden die Treiber auf der aktuellen Systemdiskette installiert.\n"
  344.         "Bei \"Expert\" können die Druckertreiber auf einer beliebigen Disk gespeichert werden.\n\n"
  345.     ))
  346.     (set #welcome-pirate
  347.     (cat "\nWillkommen zur Installation der Canon-Druckersoftware!\n\n"
  348.         "Copyright (C)1992-95 Wolf Faust\nVertrieb: Canon Europe N.V.\n"
  349.         "\nDIESE DISKETTE DARF NICHT OHNE SCHRIFTLICHE ERLAUBNIS\n"
  350.         "VON WOLF FAUST ODER CANON EUROPE N.V. VERTRIEBEN WERDEN!\n"
  351.     ))
  352.     (set #bad-kick
  353.     (cat    "\nIhre System-Software ist sehr alt. "
  354.         "Sie brauchen mindestens Kickstart 2.04 für alle CanonDisk Programme."
  355.     ))
  356.     ;--------------
  357.     (set #diskbased
  358.     (cat "Auf welche Geräte wollen Sie die Canon Software installieren?"
  359.     ))
  360.     (set #diskbased-choices1
  361.     (cat "Auf eine Festplatte."
  362.     ))
  363.     (set #diskbased-choices2
  364.     (cat "2 oder mehr Diskettenstationen - Ohne Festplatte."
  365.     ))
  366.     (set #diskbased-choices3
  367.     (cat "Eine Diskettenstation - Ohne Festplatte."
  368.     ))
  369.     (set #diskbased-help
  370.     (cat "\nDie CanonDisk benötigt mehr freien  Speicherplatz als auf einer Diskette "
  371.         "vorhanden ist. Das Installationsprogramm hilft Ihnen bei der "
  372.         "Installation auf mehrere Disketten.\n\n"
  373.         @askoptions-help
  374.     ))
  375.     ;--------------
  376.     (set #w-studio
  377.     (cat "Welche Programme der Canon-Software wollen Sie installieren?"
  378.     ))
  379.     (set #w-studio-help
  380.     (cat "\nDie Canon-Software besteht im wesentlichen aus zwei von einander "
  381.         "unabhängigen Teilen: Druckertreiber und dem CanonStudio-Anwendungsprogramm. "
  382.         "Sie können jetzt wählen, welche Teile Sie installieren wollen.\n\n"
  383.         @askoptions-help
  384.     ))
  385.     (set #w-studio-choices1
  386.     (cat "Entfernen der Canon Treiber"
  387.     ))
  388.     (set #w-studio-choices2
  389.     (cat "Canon Druckertreiber"
  390.     ))
  391.     (set #w-studio-choices3
  392.     (cat "CanonStudio Druckprogramm"
  393.     ))
  394.     ;--------------
  395.     (set #format
  396.     (cat "\nSie benötigen %ld leere Diskette(n) um die gewünschte Software zu installieren. "
  397.         "Benutzen Sie den 'Format'-Menüpunkt der Workbench, um eine leere Diskette zu erstellen. "
  398.         "\n\nBenennen Sie die Disketten nach einem eindeutigen Namen (z.B. \"Canon\"). "
  399.     ))
  400.     ;--------------
  401.     (set #abortunpack
  402.     (cat "\nEin Fehler trat beim Entpacken/Schreiben einer Datei auf!\n"
  403.         "Das zu entpackende Archiv lautete:\n\n\"%s\"\n\n"
  404.     ))
  405.     ;--------------
  406.     (set #abortnochoice
  407.     (cat "Sie haben keine Option gewählt. Bitte starten Sie das Installations-Programm erneut\n"
  408.     ))
  409.     ;--------------
  410.     (set #cfm-delete
  411.     (cat "\n\nWarnung!\n\n"
  412.         "Machen Sie eine Sicherheitskopie, bevor Sie alte Canon Treiber löschen. \n"
  413.         "Soll ich jetzt wirklich alle Treiber löschen?\n\n"
  414.     ))
  415.     (set #cfm-delete-help
  416.     (cat "\nDas Installationsskript löscht jetzt alle alten Canon-Treiber und deren Einstellungen.\n\n"
  417.     ))
  418.     (set #cfm-delete-1
  419.     (cat "Ja, löschen"
  420.     ))
  421.     (set #cfm-delete-2
  422.     (cat "Nein, weiter"
  423.     ))
  424.     ;--------------
  425.     (set #w-emul
  426.     (cat "Was für einen Drucker besitzen Sie?"
  427.     ))
  428.     (set #w-emul-help
  429.     (cat "\nDiese Disk enthält Druckertreiber für verschiedene Drucker-Emulationen. "
  430.         "Das Benutzerhandbuch Ihres Druckers gibt Ihnen sicher Auskunft über "
  431.         "die von Ihrem Drucker unterstützten Emulationen.\n\n"
  432.         "Viele Drucker unterstützen mehrere Emulationen in verschiedener Qualität. "
  433.         "Versuchen Sie daher ruhig mehrere Emulationen aus, um die für Sie richtige zu finden.\n\n"
  434.         @askchoice-help
  435.     ))
  436.     ;--------------
  437.     (set #w-driver #w-emul)
  438.     (set #w-driver-help #w-emul-help)
  439.     ;--------------
  440.     (set #ask-sys
  441.     (cat "\nIn welche Disk oder Schublade soll der Canon-Druckertreiber kopiert werden?"
  442.     ))
  443.     (set #ask-sys-help
  444.     (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welche "
  445.         "Schublade der Canon-Druckertreiber kopiert werden soll. Normalerweise sollten "
  446.         "Sie hierzu die Schublade \"Devs:Printers\" wählen.\n\n"
  447.         @askdir-help
  448.     ))
  449.     ;--------------
  450.     (set #yellspace
  451.     (cat "\nDiese Installation benötigt mehr als %ld Bytes freien Speicherplatz auf der Disk. \"%s\". "
  452.         "Sie können jetzt unnötige Dateien von der Disk löschen. Sie können auch fortfahren mit der "
  453.         "Installation und das Installationsprogramm wird versuchen, unnötige Dateien zu löschen. "
  454.         "Sie werden jeweils um Erlaubnis gefragt, bevor eine Datei gelöscht wird.\n"
  455.         "MACHEN SIE EINE SICHERHEITSKOPIE IHRER DISK, BEVOR SIE DATEIEN LÖSCHEN.\n"
  456.     ))
  457.     ;--------------
  458.     (set #tdel0 "Utilities/Clock")
  459.     (set #tdel1 "Devs/Printers/Generic")
  460.     (set #tdel2 "C/SetFont")
  461.     (set #tdel3 "C/Edit")
  462.     (set #tdel4 "C/Eval")
  463.     (set #tdel5 "C/DiskChange")
  464.     (set #tdel6 "C/FileNote")
  465.     (set #tdel7 "C/Lock")
  466.     (set #tdel8 "C/Search")
  467.     (set #tdel9 "C/Sort")
  468.     (set #tdel10 "C/MagTape")
  469.     (set #tdel11 "C/MakeLink")
  470.     (set #tdel12 "C/RemRad")
  471.     (set #tdel13 "C/Which")
  472.     (set #tdel14 "C/ChangeTaskPri")
  473.     (set #tdel15 "C/Join")
  474.     (set #tdel16 "System/NoFastMem")
  475.     
  476.     (set #del0 "Zeigt die Uhrzeit an")
  477.     (set #del1 "Ein simpler ASCII-Text Druckertreiber")
  478.     (set #del2 "Definiert den Systemzeichensatz")
  479.     (set #del3 "Ein Zeileneditor")
  480.     (set #del4 "Löst mathematische Ausdrücke")
  481.     (set #del5 "FÜhrt einen Diskwechsel aus")
  482.     (set #del6 "Editieren von Dateikommentaren")
  483.     (set #del7 "Schützt Dateien vor dem Löschen")
  484.     (set #del8 "Sucht eine Datei")
  485.     (set #del9 "Sortiert eine Datei")
  486.     (set #del10 "Kontrolliert Streamer")
  487.     (set #del11 "Erzeugt Disk-Links")
  488.     (set #del12 "Entfernt die Resetfeste-Ram-Disk")
  489.     (set #del13 "Zeigt den Speicherort eines Befehls")
  490.     (set #del14 "Verändert die Task-Priorität")
  491.     (set #del15 "Verbindet Dateien")
  492.     (set #del16 "Entfernt Fast-Speicher")
  493.     ;--------------
  494.     (set #full-delete
  495.     (cat "\nKann ich die Datei '%s' löschen?\n\n"
  496.         "Aufgabe der Datei:\n\n"
  497.         "%s"
  498.     ))
  499.     (set #full-delete-help
  500.     (cat "\nIhre Systemdiskette verfügt nicht über genug Speicherplatz, um einen Druckertreiber zu installieren. "
  501.         "Das Installationsprogramm kann jetzt für Sie unnötige Dateien löschen. "
  502.         "Sie müssen nicht alle angezeigten Dateien löschen, doch kann dies dazu führen, "
  503.         "das bei zu wenig freiem Speicherplatz, die Installation nicht zu Ende geführt werden kann. "
  504.     ))
  505.     (set #full-delete-1
  506.     (cat "Ja, löschen."
  507.     ))
  508.     (set #full-delete-2
  509.     (cat "Nein!"
  510.     ))
  511.     ;--------------
  512.     (set #tofull
  513.     (cat "Ihre Disk '%s' besitzt nicht gennug freien Speicherplatz. Es sind "
  514.         "mindestens %ld Bytes an freiem Speicherplatz notwendig für "
  515.         "die Installation des gewünschten Treibers.\n"
  516.         "Bitte löschen Sie unnötige Dateien von der Disk und versuchen Sie anschließend "
  517.         "erneut die Installation.\n\n"
  518.     ))
  519.     (set #tofull2
  520.     (cat "Ihre Disk '%s' besitzt nicht gennug freien Speicherplatz. Es sind "
  521.         "mindestens %ld Bytes an freiem Speicherplatz notwendig für "
  522.         "die Installation des gewünschten Treibers. "
  523.         "Es konnten keine unnötigen Dateien zum Löschen vom Installationsprogramm "
  524.         "gefunden werden. "
  525.         "Bitte löschen Sie unnötige Dateien von der Disk und versuchen Sie anschließend "
  526.         "erneut die Installation.\n\n"
  527.     ))
  528.     ;--------------
  529.     (set #nodevice
  530.     (cat "\nAchtung:\n\nEs scheint, Ihre Systemdiskette besitzt nicht die Datei 'printer.device' "
  531.         "im 'DEVS:'-Verzeichnis. Diese Datei wird zum Drucken von Programmen benötigt und "
  532.         "ist Teil jeder richtigen Workbench-Diskette.\n\n"
  533.         "Bitte machen Sie die 'printer.device' Datei nach der Installation verfügbar."
  534.     ))
  535.     ;--------------
  536.     (set #nopardevice
  537.     (cat "\nAchtung:\n\nEs scheint, Ihre Systemdiskette besitzt nicht die Datei 'parallel.device' "
  538.         "im 'DEVS:'-Verzeichnis. Sollten Sie nicht über eine Schnittstellenkarte oder "
  539.         "den Seriellen-Port des Amigas drucken, wird diese Datei zum Drucken dringends benötigt. "
  540.         "Die Datei ist Teil jeder richtigen Workbench-Diskette.\n\n"
  541.         "Bitte machen Sie die 'parallel.device' Datei nach der Installation verfügbar."
  542.     ))
  543.     ;--------------
  544.     (set #noenv
  545.     (cat "\nLeider ist keine Schublade mit dem Namen \"Env:\" auffindbar!\n"
  546.         "Canon Treiber speichern Einstellungen in dieser Schublade. "
  547.         "Normalerweise wird \"Env:\" von der standard Startup-Sequence von "
  548.         "Commodore erzeugt. Es scheint, Sie benutzen eine veränderte "
  549.         "Startup-Sequence.\n"
  550.         "Bitte korregieren Sie Ihre Startup-Sequence und installieren Sie von "
  551.         "neuem!\n\n"
  552.     ))
  553.     ;--------------
  554.     (set #noenvarc
  555.     (cat "\nLeider ist keine Schublade mit dem Namen \"ENVARC:\" auffindbar!\n"
  556.         "Canon Treiber speichern Einstellungen in dieser Schublade. "
  557.         "Normalerweise wird \"ENVARC:\" von der standard Startup-Sequence von "
  558.         "Commodore erzeugt. Es scheint, Sie benutzen eine veränderte "
  559.         "Startup-Sequence.\n"
  560.         "Bitte korregieren Sie Ihre Startup-Sequence und installieren Sie von "
  561.         "neuem!\n\n"
  562.     ))
  563.     ;--------------
  564.     (set #ask-prefs
  565.     (cat "\nIn welche Disk oder Schublade soll das Voreinsteller-Programm "
  566.         "(engl. Preferences) kopiert werden?"
  567.     ))
  568.     (set #ask-prefsdisk
  569.     (cat "\nBitte wählen Sie die %ld. leere Diskette."
  570.     ))
  571.     (set #ask-prefs-help
  572.     (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welche "
  573.         "Schublade das Canon Voreinsteller-Programm kopiert werden soll. "
  574.         "Normalerweise sollten Sie hierzu die Schublade \"SYS:Prefs\" wählen.\n\n"
  575.         @askdir-help
  576.     ))
  577.     ;--------------
  578.     (set #finalmsg
  579.     (cat "Der gewünschte Canon Treiber wurde unter dem Namen\n\"%s"
  580.         "\"\ninstalliert und sollte jetzt in dem Workbench \"Printer\"-Voreinsteller eingestellt werden.\n"
  581.         "Der Canon Treiber-Voreinsteller wurde unter dem Namen\n\"%s"
  582.         "\"\ngespeichert und dient zum Einstellen zusätzlicher Funktionen des Treibers.\n"
  583.     ))
  584.     ;--------------
  585.     (set #wrongdither
  586.     (cat "\n\nACHTUNG: Die Workbench Voreinstellungen sind FALSCH!\n\n"
  587.         "Bitte selektieren Sie die \"geordnete\" (engl. ordered) "
  588.         "Dither-Methode mit Hilfe des \"PrinterGfX\"- bzw. \"Preferences\"-"
  589.         "Programms. Bitte wählen Sie auch eine Dichte größer 2 und "
  590.         "schalten Sie die Farbkorrektur in PrinterGfx ab.\n"
  591.         "Zur Erleichterung wird das Programm "
  592.         "für die Voreinstellungen jetzt versucht zu starten..."
  593.     ))
  594.     ;--------------
  595.     (set #ask-studio
  596.     (cat "\nWählen Sie eine Disk/Verzeichnis, in dem das CanonStudio-Verzeichnis angelegt werden soll."
  597.     ))
  598.     (set #ask-studiodisk
  599.     (cat "\nBitte wählen Sie die %ld. leere Diskette."
  600.     ))
  601.     (set #ask-studio-help
  602.     (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welcher "
  603.         "Schublade das CanonStudio-Schublade des Druckprogramms kopiert werden soll. Normalerweise sollten "
  604.         "Sie hierzu die Schublade wählen, in der Sie auch Ihre anderen "
  605.         "Grafikprogramme speichern. Die gewählte Disk sollte mindestens 350KByte "
  606.         "an freien Speicherplatz besitzen.\n\n"
  607.         @askdir-help
  608.     ))
  609.     ;--------------
  610.     (set #tofullstudio
  611.     (cat "Ihre Disk/Verzeichnis '%s' besitzt nicht genug freien Speicherplatz. "
  612.         "Zur Installation von CanonStudio sind mindestens %ld Bytes notwendig. "
  613.         "Bitte machen Sie Speicherplatz verfügbar und installieren Sie erneut.\n\n"
  614.     ))
  615.     ;--------------
  616.     (set #pagestream
  617.     (cat "\n\nWollen Sie einen Treiber für das DTP-Programm "
  618.         "PageStream V2.2x (nicht V3.x!) installieren?\n\n"
  619.     ))
  620.     (set #pagestream-help
  621.     (cat "\nDie Canon-Diskette enthält auch spezielle Druckertreiber für das DTP-Programm "
  622.         "PageStream V2.2. Sollten Sie das DTP-Programm besitzen, dann können Sie "
  623.         "mit diesen Treibern ca. 200 %% schneller drucken.\n\n"
  624.     ))
  625.     (set #pagestream-yes
  626.     (cat "Ja"
  627.     ))
  628.     (set #pagestream-no
  629.     (cat "Nein"
  630.     ))
  631.     (set #ask-pagestream
  632.     (cat "\nIn welche Schublade sollen die PageStream-Treiber (BJ2x0 oder CanonBJCx00) "
  633.         "kopiert werden?"
  634.     ))
  635.     (set #ask-pagestream-help
  636.     (cat "\nIn diesem Teil können Sie die Ziel-Schublade für die PageStream "
  637.         "Druckertreiber wählen. Normalerweise sollte die "
  638.         "PageStream \"Printers\"-Schublade angegeben werden.\n\n"
  639.         @askdir-help
  640.     ))
  641.     ;--------------
  642.     (set #sorry
  643.     (cat "\n\nLeider war auf dieser Canon Diskette nicht mehr genug Platz für "
  644.         "den von Ihnen gewünschten Druckertreiber. Der gewünschte Treiber "
  645.         "befindet sich deshalb auf einer weiteren Treiberdiskette von Canon. "
  646.         "Bitte fordern Sie einen Treiber für Ihren Drucker gesondert von "
  647.         "Ihrem Händler oder der Canon Hotline an."
  648.     ))
  649.     ;--------------
  650.     (set #ask-docs
  651.     (cat "\nIn welche Schublade soll die Treiber-Anleitung kopiert werden?"
  652.     ))
  653.     (set #ask-docs-help
  654.     (cat "\nIn diesem Teil können Sie die Ziel-Schublade für die Anleitung "
  655.         "der Canon Treiber wählen.\n\n"
  656.         @askdir-help
  657.     ))
  658.     (set #abortdocs
  659.     (cat "\nDie Anleitung benötigt ca. 120000 Bytes "
  660.         "an freiem Speicherplatz auf der angegebenen Disk.\n\n"
  661.         "Leider habe Sie nicht genug Speicherplatz auf der Disk frei! "
  662.         "Bitte machen Sie genug Speicherkapazität frei und versuchen erneut "
  663.         "eine Installation!\n\n"
  664.     ))
  665.     ;--------------
  666.     (set docfile "Liesmich")
  667.     ;--------------
  668.     (set #waitmsg
  669.     (cat "\n\n\n\nIch arbeite! Bitte warten..."
  670.     ))
  671. ))
  672.  
  673. ; **** Texte en français
  674. (if (= @language "français")
  675. (
  676.     (set #welcome
  677.     (cat "\nIntermédiaire : les pilotes d'imprimantes sont installés sur le disque système courant.\n"
  678.         "Expert:  les pilotes d'imprimantes peuvent être installés sur un disque quelconque.\n\n"
  679.     ))
  680.     (set #welcome-pirate
  681.     (cat "\nBienvenue dans CANONDISK: la disquette de gestion\n"
  682.         " des imprimantes Canon!\n\n"
  683.         "Copyright (C) 1992-95 par Wolf Faust\n"
  684.         "Distribution : Canon Europe N.V.\n"
  685.         "\nCE DISQUE NE PEUT ETRE DISTRIBUE\n"
  686.         "SANS PERMISSION ECRITE DE WOLF FAUST\n OU DE CANON EUROPE N.V.!\n"
  687.     ))
  688.     (set #bad-kick
  689.     (cat    "\nVotre logiciel système est trop ancien. "
  690.         "Utiliser le Kickstart 2.04 ou plus récent pour tous programmes Canon  "
  691.         "accessibles à la souris. "
  692.     ))
  693.     ;--------------
  694.     (set #diskbased
  695.     (cat "Quel type de disque système utilisez-vouz ?"
  696.     ))
  697.     (set #diskbased-choices1
  698.     (cat "Disque dur ou apparenté"
  699.     ))
  700.     (set #diskbased-choices2
  701.     (cat "Deux ou plusieurs unités de disques"
  702.     ))
  703.     (set #diskbased-choices3
  704.     (cat "Une seule unité de disque"
  705.     ))
  706.     (set #diskbased-help
  707.     (cat "\nLe programme Canon nécessite davantage d'espace disque que ce qui "
  708.         "est disponible sur une seule disquette. L'installation aidera les utilisateurs "
  709.         "de systèmes à disquettes à obtenir suffisamment d'espace disque pour "
  710.         "installer le logiciel Canon.\n\n"
  711.         @askoptions-help
  712.     ))
  713.     ;--------------
  714.     (set #w-studio
  715.     (cat "Que désirez-vous installer ?"
  716.     ))
  717.     (set #w-studio-help
  718.     (cat "\nCe disque est organisé en deux parties indépendantes : "
  719.         "les pilotes d'imprimantes et le programme d'impression. "
  720.         "Choisissez maintenant ce que vous souhaitez installer!\n\n".
  721.         @askoptions-help
  722.     ))
  723.     (set #w-studio-choices1
  724.     (cat "Drivers Canon non installés"
  725.     ))
  726.     (set #w-studio-choices2
  727.     (cat "pilotes d'imprimantes Canon"
  728.     ))
  729.     (set #w-studio-choices3
  730.     (cat "logiciel CanonStudio"
  731.     ))
  732.     ;--------------
  733.     (set #format
  734.     (cat "\nVous avez besoin de %ld disquettes vides afin d'installer le logiciel requis. "
  735.         "Générez la disquette vide en utilisant l'option 'Format Disk...' du menu Workbench.\n\n"
  736.         "Donnez aux disquettes des noms (par exemple \"Canon\" qui vous aideront à les identifier ultérieurement."
  737.     ))
  738.     ;--------------
  739.     (set #abortunpack
  740.     (cat "\nErreur en cours de décompression/écriture d'un fichier ! "
  741.         "L'erreur s'est produite pendant la décompression du fichier :\n\n\"%s\"\n\n"
  742.     ))
  743.     ;--------------
  744.     (set #abortnochoice
  745.     (cat "You didn't select an action to perform. Start installation again and select an action to perform."
  746.     ))
  747.     ;--------------
  748.     (set #cfm-delete
  749.     (cat "\n\nLes réglages de l'ancien pilote Canon peuvent-ils être effacés ?"
  750.     ))
  751.     (set #cfm-delete-help
  752.     (cat "\nVous pouvez maintenant supprimer les anciens drivers Canon et leurs paramètres.\n\n"
  753.     ))
  754.     (set #cfm-delete-1
  755.     (cat "Oui, effacer"
  756.     ))
  757.     (set #cfm-delete-2
  758.     (cat "Non"
  759.     ))
  760.     (set #w-emul
  761.     (cat "Quelle est votre imprimante ?"
  762.     ))
  763.     (set #w-emul-help
  764.     (cat "\nCe disque contient plusieurs pilotes pour différentes "
  765.         "imprimantes Canon. "
  766.         "Au cas où votre imprimante ne figurerait pas dans la liste, reportez vous à son manuel pour "
  767.         "trouver les émulations acceptées par votre imprimante.\n\n"
  768.         "NOTE : les imprimantes acceptent souvent plusieurs émulations. "
  769.         "Il vous faudra peut-être tester plusieurs émulations avant de trouver "
  770.         "celle qui convient le mieux à vos besoins\n\n"
  771.         @askchoice-help
  772.     ))
  773.     ;--------------
  774.     (set #w-driver #w-emul)
  775.     (set #w-driver-help #w-emul-help)
  776.     ;--------------
  777.     (set #ask-sys
  778.     (cat "\nDans quel disque ou répertoire souhaitez-vous installer les pilotes d'imprimantes Canon ?"
  779.     ))
  780.     (set #ask-sys-help
  781.     (cat "\nCette section vous permet de choisir le répertoire ou le disque où "
  782.         "installer les pilotes d'imprimantes Canon. "
  783.         "Normalement le répertoire  \"devs:printers\" du disque système.\n\n"
  784.         @askdir-help
  785.     ))
  786.     ;--------------
  787.     (set #yellspace
  788.     (cat "\nCette installation nécessite >%ld octets libres sur le disque \"%s\". "
  789.         "Vous pouvez maintenant supprimer les fichiers inutiles en utilisant les menus "
  790.         "Workbench ou Shell. Ce script d'installation peut également supprimer des "
  791.         "fichiers maintenant afin de libérer de l'espace. "
  792.         "Le système vous demandera confirmation avant de supprimier chaque fichier.\n\n"
  793.         "FAITES UNE SAUVEGARDE DE VOS DISQUES SYSTEMES AVANT DE SUPPRIMER DES FICHIERS.\n\n"
  794.     ))
  795.     ;--------------
  796.     (set #tdel0 "Utilities/Clock")
  797.     (set #tdel1 "Devs/Printers/Generic")
  798.     (set #tdel2 "C/SetFont")
  799.     (set #tdel3 "C/Edit")
  800.     (set #tdel4 "C/Eval")
  801.     (set #tdel5 "C/DiskChange")
  802.     (set #tdel6 "C/FileNote")
  803.     (set #tdel7 "C/Lock")
  804.     (set #tdel8 "C/Search")
  805.     (set #tdel9 "C/Sort")
  806.     (set #tdel10 "C/MagTape")
  807.     (set #tdel11 "C/MakeLink")
  808.     (set #tdel12 "C/RemRad")
  809.     (set #tdel13 "C/Which")
  810.     (set #tdel14 "C/ChangeTaskPri")
  811.     (set #tdel15 "C/Join")
  812.     (set #tdel16 "System/NoFastMem")
  813.  
  814.     (set #del0 "Affice l'heure système")
  815.     (set #del1 "Un driver d'imprimante texte générique")
  816.     (set #del2 "Définit la police système")
  817.     (set #del3 "Un éditor ligne")
  818.     (set #del4 "Calcule les expressions mathématiques")
  819.     (set #del5 "Détecte un changement de disquette")
  820.     (set #del6 "Ajoute/supprime les notes de fichiers")
  821.     (set #del7 "Verrouille les fichiers contre la suppression")
  822.     (set #del8 "Cherche un fichier")
  823.     (set #del9 "Tri un fichier")
  824.     (set #del10 "Contrôle les systèmes de backup sur bande")
  825.     (set #del11 "Crée une liason disque")
  826.     (set #del12 "Supprimer l'unite de RAM récupérable")
  827.     (set #del13 "Affiche la localisation d'un fichier CMD")
  828.     (set #del14 "Modifie la priorité des tâches")
  829.     (set #del15 "Joint/fusionne les fichiers")
  830.     (set #del16 "Désactive toute mémoire rapide")
  831.     ;--------------
  832.     (set #full-delete
  833.     (cat "\nLe fichier '%s' peut-il être supprimé ?\n\n"
  834.         "La fonction de ce programme :\n\n"
  835.         "%s"
  836.     ))
  837.     (set #full-delete-help
  838.     (cat "Votre disque système ne dispose pas de l'espace disque nécessaire "
  839.         "pour installer le driver d'imprimante. Le programme d'installation peut "
  840.         "maintenant supprimer des fichiers de votre disque système la plupart du "
  841.         "temps non utilisés. Si vous avez besoin de l'un de ces fichiers, vous "
  842.         "puvez annuler la suppresion. Cette annulation peut cependant provoquer "
  843.         "l'echec de l'installation si l'espace disque libéré est insuffisant."
  844.     ))
  845.     (set #full-delete-1
  846.     (cat "Qui, supprimer."
  847.     ))
  848.     (set #full-delete-2
  849.     (cat "Non, continuer."
  850.     ))
  851.     ;--------------
  852.     (set #tofull
  853.     (cat "Votre disque/périphérique %s n'a toujours pas suffisamment d'espace "
  854.         "pour installer le driver d'imprimante. L'installation demendée nécessite au moins "
  855.         "%ld octets d'espace libre.\n"
  856.         "Aprés suppression/déplacement des fichiers, essayez à nouveau d'installer le driver.\n"
  857.     ))
  858.     (set #tofull2
  859.     (cat "Votre disque/périphérique %s n'a toujours pas suffisamment d'espace "
  860.         "pour installer le driver d'imprimante. Impossible de trouver des fichiers à "
  861.         "supprimer pour libérer de l'espace. L'installation demendée nécessite au moins "
  862.         "%ld octets d'espace libre.\n"
  863.         "Examinez les fichiers stockés sur votre disque et supprimez ceux qui ne sont pas utiles. "
  864.         "Aprés suppression/déplacement des fichiers, essayez à nouveau d'installer le driver.\n"
  865.     ))
  866.     ;--------------
  867.     (set #nodevice
  868.     (cat "\nAttention\n\nIl semble que le fichier 'printer.device' ne soit pas "
  869.         "disponible dans votre répertoire 'DEVS:'. Ce fichier est nécessaire "
  870.         "pour imprimer et est toujours livré avec les disquettes Workbench.\n\n"
  871.         "Vous devez rendre ce fichier disponible après installation."
  872.     ))
  873.     ;--------------
  874.     (set #nopardevice
  875.     (cat "\nAttention\n\nIl semble que le fichier 'parallel.device' ne soit pas "
  876.         "disponible dans votre répertoire 'DEVS:'. A moins que vous n'utilisiez le "
  877.         "port série ou une carte d'extension. Il est livré avec vos disquettes Workbench. "
  878.         "Sans ce fichier, les applications ne peuvent pas accéder au port de "
  879.         "l'imprimante.\n\n"
  880.         "Rendez ce fichier disponible après installation de CanonDisk si des "
  881.         "problèmes apparaissent pour accéder à l'imprimante."
  882.     ))
  883.     ;--------------
  884.     (set #noenv
  885.     (cat "Il n'y a pas de volume/péripherique/assign 'ENV:' disponible. "
  886.         "Le volume 'ENV:' est généralement créé par la séquence de "
  887.         "démarrage de votre sysème localisé dans le volume 'S:'. Il semble que vous "
  888.         "utilisiez une séquence de démarrage personnalisée. "
  889.         "Assurez-vous qu'il existe un volume 'ENV:' créé par votre disque système. "
  890.         "Reportez-vous à cotre documenation système ou au manuel du logiciel Canon. "
  891.     ))
  892.     ;--------------
  893.     (set #noenvarc
  894.     (cat "Il n'y a pas de volume/péripherique/assign 'ENVARC:' disponible. "
  895.         "Le volume 'ENVARC:' est généralement créé par votre système pendant l'initialisation. "
  896.         "Il semble que vous "
  897.         "utilisiez une procédure d'initialisation personnalisée. "
  898.         "Assurez-vous qu'il existe un volume 'ENVARC:' créé par votre disque système. "
  899.         "Reportez-vous à cotre documenation système ou au manuel du logiciel Canon. "
  900.     ))
  901.     ;--------------
  902.     (set #ask-prefs
  903.     (cat "\nDans quel disque ou répertoire souhaitez-vous installer les préférences d'imprimantes Canon ?"
  904.     ))
  905.     (set #ask-prefsdisk
  906.     (cat "\nSélectionnez le disque vide %ld."
  907.     ))
  908.     (set #ask-prefs-help
  909.     (cat "\nCette section vous permet de choisir le répertoire ou le disque où "
  910.         "installer les préférences d'imprimantes Canon. "
  911.         "Normalement le répertoire  \"sys:prefs\" du disque système.\n\n"
  912.         @askdir-help
  913.     ))
  914.     ;--------------
  915.     (set #finalmsg
  916.     (cat "Le pilote que vous avez choisi est installé sous le nom de\n\"%s"
  917.         "\"\net devrait être sélectionné dans le programme de préférences du Workbench \"Printer\".\n"
  918.         "Le programme de préférences des pilotes Canon a été sauvé sous le nom :\n\"%s"
  919.         "\"\net devrait être utilisé pour modifier le comportement de l'imprimante selon vos besoins.\n"
  920.     ))
  921.     ;--------------
  922.     (set #wrongdither
  923.     (cat "\n\nATTENTION : les préférences du Workbench sont mal règlées\n\n"
  924.         "Choisir \"Estompage\" \"ordonné\" (dans \"PrinterGfx\")."
  925.         "Also select a density above 2 and disable the color correction\n\n"
  926.         " Nous allons maintenant essayer de lancer les préférences pour vous."
  927.     ))
  928.     ;--------------
  929.     (set #ask-studio
  930.     (cat "\nDans quel répertoire souhaitez-vous installer le logiciel CanonStudio ?"
  931.     ))
  932.     (set #ask-studiodisk 
  933.     (cat "\nSélectionnez le disque vide %ld."
  934.     ))
  935.     (set #ask-studio-help
  936.     (cat "\nCette section vous permet de choisir le disque ou le répertoire où "
  937.         "installer CanonStudio.\n\n"
  938.         "The program can be installed to any disk/drawer you like. "
  939.         "Le disque sélectionné doit avoir au moins 350 Ko d'espace libre.\n\n"
  940.         @askdir-help
  941.     ))
  942.     ;--------------
  943.     (set #tofullstudio
  944.     (cat "Votre disque/péripherique %s: n'a pas suffisamment d'espace disque "
  945.         "disponible pour installer CanonStudio. L'installation demenadée nécessite "
  946.         "au moins %ld octets d'espace libre.\n"
  947.         "Après suppression, déplacement des fichiers inutiles, recommencez l'installation.\n\n"
  948.     ))
  949.     ;--------------
  950.     (set #pagestream
  951.     (cat "\n\nDésirez-vous installer un pilote pour Canon "
  952.         "fonctionnant avec le logiciel de PAO PageStream 2.x (non V3) ?\n\n"
  953.     ))
  954.     (set #pagestream-help
  955.     (cat "\nCe disque contient un pilote spécialement adapté à PageStream 2.x "
  956.         "Si vous utilisez ce logiciel de PAO, vous pouvez installer ce pilote "
  957.         " qui permet d'accroître la vitesse d'impression de 200%%.\n"
  958.     ))
  959.     (set #pagestream-yes
  960.     (cat "Oui"
  961.     ))
  962.     (set #pagestream-no
  963.     (cat "Non"
  964.     ))
  965.     (set #ask-pagestream
  966.     (cat "\nDans quel tiroir souhaitez-vous installer les pilotes PageStream (BJ2x0, CanonBJCx00) ?"
  967.     ))
  968.     (set #ask-pagestream-help
  969.     (cat "\nCette section vous permet de choisir le tiroir où sauver les pilotes pour PageStream. "
  970.         "Normallement le tiroir \"Printers\" de PageStream.\n\n"
  971.         @askdir-help
  972.     ))
  973.     ;--------------
  974.     (set #sorry
  975.     (cat "\n\nce disque n'inclut pas le logiciel demandé. "
  976.         "Il n'y avait pas suffisamment d'espace disque pour le driver souhaité. "
  977.         "Contactez votre revendeur ou la Hotline Canon et demandez une "
  978.         "disquette différente, contenant un driver pour votre imprimante."
  979.     ))
  980.     ;--------------
  981.     (set #ask-docs
  982.     (cat "\nDans quel tiroir faut-il sauver la documentation ?"
  983.     ))
  984.     (set #ask-docs-help
  985.     (cat "\nCette section vous propose de choisir le répertoire où sera sauvée la documentation Canon.\n\n"
  986.         @askdir-help
  987.     ))
  988.     (set #abortdocs
  989.     (cat "\nCette installation occupe >120000 octets sur le disque "
  990.         "où vous souhaitez installer la documentation. Assurez-vous que cet "
  991.         "espace est disponible avant de ré-installer.\n\n"
  992.     ))
  993.     ;--------------
  994.     (set docfile "Readme")
  995.     ;--------------
  996.     (set #waitmsg
  997.     (cat "\n\n\n\nInstaller travaille ! Veuillez attendre..."
  998.     ))
  999. ))
  1000.  
  1001. ; **** START
  1002.  
  1003. (procedure Meter
  1004. (
  1005.     (set accum    (+ accum addmeter))
  1006.     (complete (/ (* accum 100) total))
  1007. ))
  1008.  
  1009. (complete 0)
  1010. (welcome #welcome)
  1011. (complete 1)
  1012. (message #welcome-pirate)
  1013.  
  1014. (set total        0)
  1015. (set accum        0)
  1016. (set addmeter        0)
  1017. (makeassign "CanonDisk_Install" (pathonly @icon))
  1018.  
  1019. ; **** sure we are running under a 2.04 or higher ROM???
  1020. (if (< (/ (getversion) 65536) 37)
  1021.     (abort #bad-kick)
  1022. )
  1023.  
  1024. ; **** Does this system offer a hard disk?   0=HD  1=2nd floppy  2=one floppy
  1025. (set diskbased (askchoice (prompt #diskbased)
  1026.     (help #diskbased-help)
  1027.     (choices #diskbased-choices1 #diskbased-choices2 #diskbased-choices3)
  1028.     (default 0)
  1029.     )
  1030. )
  1031. ; **** Wich parts should get installed: driver &-| CanonStudio?
  1032. (set studio (askoptions (prompt #w-studio)
  1033.     (help #w-studio-help)
  1034.     (choices #w-studio-choices1 #w-studio-choices2 #w-studio-choices3)
  1035.     (default (if (> diskbased 1) %111 %111))  ; use 111 for second %110 if deletion is wanted as default for non-single floppy systems
  1036.     )
  1037. )
  1038. ; **** determine max. meter for complete()
  1039. (set n 0)
  1040. (while (set size (select n 5    ; delete
  1041.     42       ; driver
  1042.     21       ; application
  1043.     0 ))
  1044. (
  1045.     (if (IN studio n)
  1046.     (
  1047.         (set total (+ total size))
  1048.     ))
  1049.     (set n (+ n 1))
  1050. ))
  1051. (set disknumber 1)
  1052. (if (> diskbased 0)
  1053. (
  1054.     (set format 0)
  1055.     (if (IN studio 1)
  1056.     (
  1057.         (set format 1)
  1058.     ))
  1059.     (if (IN studio 2)
  1060.     (
  1061.         (set format 1)
  1062.     ))
  1063.     (if (> format 0)
  1064.     (
  1065.         (message (#format format))
  1066.     ))
  1067. ))
  1068. (set @default-dest "")
  1069. (if (> studio 0)
  1070. (
  1071.     (copyfiles (source "CanonDisk_Install:bin/check")
  1072.         (dest "T:")
  1073.         (nogauge)
  1074.     )
  1075.     (copyfiles (source "CanonDisk_Install:bin/lx")
  1076.         (dest "T:")
  1077.         (nogauge)
  1078.     )
  1079.     (set exerr (run "T:lx n"))
  1080.     (if (> exerr 0)
  1081.     (
  1082.         (abort (#abortunpack "-none-"))
  1083.     ))
  1084. )
  1085. (
  1086.     (abort #abortnochoice)
  1087. ))
  1088. ; **** delete old drivers/prefs
  1089. (if (IN studio 0)
  1090. (
  1091.     (set addmeter    1)
  1092.     (Meter)
  1093.     (if (askbool (prompt (#cfm-delete))
  1094.         (help (#cfm-delete-help ))
  1095.         (choices #cfm-delete-1 #cfm-delete-2)
  1096.         (default 1))
  1097.     (
  1098.         (set n 0)
  1099.         (while (set thisfile (select n  "Beep"
  1100.             "Time"
  1101.             "ResX"
  1102.             "ResY"
  1103.             "Dry"
  1104.             "GAdj"
  1105.             "CAdj"
  1106.             "MAdj"
  1107.             "YAdj"
  1108.             "GDit"
  1109.             "CDit"
  1110.             "MDit"
  1111.             "YDit"
  1112.             "Copies"
  1113.             "Type"
  1114.             "Type0"
  1115.             "Type1"
  1116.             "Type2"
  1117.             "Type3"
  1118.             "Type4"
  1119.             "Type5"
  1120.             "Type6"
  1121.             "Type7"
  1122.             "Type8"
  1123.             "Type9"
  1124.             "Type10"
  1125.             "Perf"
  1126.             "Mirror"
  1127.             "Sep"
  1128.             "Magenta"
  1129.             "Yellow"
  1130.             "Orient"
  1131.             "TDirect"
  1132.             "Top"
  1133.             "Tab"
  1134.             "Super"
  1135.             "Form"
  1136.             "Color"
  1137.             "GEmu"
  1138.             "TEmu"
  1139.             "Strip"
  1140.             "Quiet"
  1141.             "KAdj"
  1142.             "KDit"
  1143.             "GFeed"
  1144.             "PageLen"
  1145.             "GDirect"
  1146.             "Quality"
  1147.             "Compress"
  1148.             "Symbol"
  1149.             "CDitAlg"
  1150.             "GDitAlg"
  1151.             "Emu"
  1152.             "Mode"
  1153.             "Font"
  1154.             "FONT0"
  1155.             "FONT1"
  1156.             "FONT2"
  1157.             "FONT3"
  1158.             "FONT4"
  1159.             "FONT5"
  1160.             "FONT6"
  1161.             "FONT7"
  1162.             "FONT8"
  1163.             "FONT9"
  1164.             "FONT10"
  1165.             "FONTDAT"
  1166.             "OVERPAGE"
  1167.             "NOSTRIP"
  1168.             "ORIENT"
  1169.             "NODISP"
  1170.             "BJ130Pref"
  1171.             "BJC880Pref"
  1172.             "LBPPref"
  1173.             "BJ300Pref"
  1174.             "BJ5-230Pref"
  1175.             "BJECPref"
  1176.             "" ))
  1177.         (
  1178.             (set n (+ n 1))
  1179.             (if (exists (cat "ENV:Canon" thisfile))
  1180.             (
  1181.                 (delete (cat "ENV:Canon" thisfile))
  1182.             ))
  1183.             (if (exists (cat "ENVARC:Canon" thisfile))
  1184.             (
  1185.                 (delete (cat "ENVARC:Canon" thisfile))
  1186.             ))
  1187.         ))
  1188.         (set addmeter    1)
  1189.         (Meter)
  1190.         (set n 0)
  1191.         (while (set thisfile (select n  "CanonBJ-EC"
  1192.             "CanonBJ5-2x0"
  1193.             "CanonBJ5-230"
  1194.             "CanonBJ300"
  1195.             "CanonLBP"
  1196.             "CanonBJC880"
  1197.             "CanonBJ130"
  1198.             "" ))
  1199.         (
  1200.             (set n (+ n 1))
  1201.             (if (exists (cat "devs:printers/" thisfile))
  1202.             (
  1203.                 (delete (cat "devs:printers/" thisfile))
  1204.             ))
  1205.             (if (exists (cat "printers:" thisfile) (noreq))
  1206.             (
  1207.                 (delete (cat "printers:" thisfile))
  1208.             ))
  1209.         ))
  1210.         (set addmeter    1)
  1211.         (Meter)
  1212.         (set n 0)
  1213.         (while (set thisfile (select n  "CanonPref"
  1214.             "CanonPref.info"
  1215.             "CanonBJ130Pref"
  1216.             "CanonBJ130Pref.info"
  1217.             "CanonBJ300Pref"
  1218.             "CanonBJ300Pref.info"
  1219.             "CanonBJ5-230Pref"
  1220.             "CanonBJ5-230Pref.info"
  1221.             "CanonBJECPref"
  1222.             "CanonBJECPref.info"
  1223.             "CanonLBPPref"
  1224.             "CanonLBPPref.info"
  1225.             "CanonCaPSLPref"
  1226.             "CanonCaPSLPref.info"
  1227.             "BJ-FontShop"
  1228.             "BJ-FontShop.info"
  1229.             "CaPSL-FontShop"
  1230.             "CaPSL-FontShop.info"
  1231.             "LBP-FontShop"
  1232.             "LBP-FontShop.info"
  1233.             "" ))
  1234.         (
  1235.             (set n (+ n 1))
  1236.             (if (exists (cat "sys:prefs/" thisfile))
  1237.             (
  1238.                 (delete (cat "sys:prefs/" thisfile))
  1239.             ))
  1240.             (if (exists (cat "sys:prefs/" thisfile ".info"))
  1241.             (
  1242.                 (delete (cat "sys:prefs/" thisfile ".info"))
  1243.             ))
  1244.         ))
  1245.         (set addmeter    1)
  1246.         (Meter)
  1247.     )
  1248.     (
  1249.         (set addmeter    3)
  1250.         (Meter)
  1251.     ))
  1252. ))
  1253. ; **** install driver
  1254. (if (IN studio 1)
  1255. (
  1256.     (set addmeter    1)
  1257.     (Meter)
  1258.     ; ask for kind of printer 
  1259.     (set emul   (askchoice (prompt #w-emul)
  1260.         (help #w-emul-help)
  1261.             (choices "Canon BJ       (BJ Emulation)"    ; 0
  1262.                 "Canon BJC      (Epson Emulation)"    ; 1
  1263.                 "Canon LBP      (CaPSL Emulation)"    ; 2
  1264.                 "Canon LBP      (PCL   Emulation)"    ; 3
  1265.                 "Canon A1 or A2 (CaPSL Emulation)"    ; 4
  1266.                 "Canon BJC 880  (CaPSL Emulation)"    ; 5
  1267.             )
  1268.             (default 1)
  1269.     ))
  1270.     (set addmeter    1)
  1271.     (Meter)
  1272.     (set pagestreamv2 "")
  1273.     (set driverpath "")
  1274.     (set drivername "")
  1275.     (set prefpath "")
  1276.     (set prefname "")
  1277.     (set preffilename "")
  1278.     (set envname "")
  1279.     (set presetname "")
  1280.     (set setupname "")
  1281.     (set driversize 0)
  1282.     (set prefsize   0)
  1283.  
  1284.     (set addmeter    1)
  1285.     (Meter)
  1286.  
  1287.     (if (= emul 0)
  1288.     (  ; CanonBJ
  1289.         (set brand  (askchoice (prompt #w-driver)
  1290.             (help #w-driver-help)
  1291.             (choices "Canon BJ 5, 10, 10e, 10ex, 20"    ; 0
  1292.                 "Canon BJ 30 (Epson Emulation)"        ; 1
  1293.                 "Canon BJ 100"                ; 2
  1294.                 "Canon BJ 130, 130e"            ; 3
  1295.                 "Canon BJ 200, 200e"            ; 4
  1296.                 "Canon BJ 200ex"            ; 5
  1297.                 "Canon BJ 230"                ; 6
  1298.                 "Canon BJ 300, 330"            ; 7
  1299.             )
  1300.             (default 0)
  1301.         ))
  1302.  
  1303.         (if (= brand 1)
  1304.         (  ; CanonBJ30
  1305.             (set driverpath "CanonDisk_Install:drivers/")
  1306.             (set drivername "CanonBJEC")
  1307.             (set prefpath "CanonDisk_Install:prefs/")
  1308.             (set prefname "CanonBJECPref")
  1309.             (set driversize 56566)   ; ~46936+6558+3072
  1310.             (set prefsize   88700)
  1311.             (set envname "CanonBJECPref")
  1312.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJC30")
  1313.             (set pagestreamv2 "CanonDisk_Install:PageStreamv2/BJ200.printer")
  1314.         ))
  1315.  
  1316.         (if (= brand 0)
  1317.         (  ; BJ 100 or BJ 5..10..20
  1318.             (set driverpath "CanonDisk_Install:drivers/")
  1319.             (set drivername "CanonBJ5-230")
  1320.             (set prefpath "CanonDisk_Install:prefs/")
  1321.             (set prefname "CanonBJ5-230Pref")
  1322.             (set driversize 29126)   ; ~24648+1406+3072
  1323.             (set prefsize   87500)   ; FontShop 16156 + CanonPref 66860 + icons 2048+2048
  1324.             (set envname "CanonBJ5-230Pref")
  1325.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJ10")
  1326.         ))
  1327.         (if (OR (= brand 3))
  1328.         (
  1329.             (abort #sorry)
  1330.         ))
  1331.         (if (OR (= brand 2) (OR (= brand 4) (OR (= brand 5) (= brand 6))))
  1332.         (  ; CanonBJ2x0
  1333.             (set driverpath "CanonDisk_Install:drivers/")
  1334.             (set drivername "CanonBJ5-230")
  1335.             (set prefpath "CanonDisk_Install:prefs/")
  1336.             (set prefname "CanonBJ5-230Pref")
  1337.             (set driversize 29126)   ; ~24648+1406+3072
  1338.             (set prefsize   87500)   ; FontShop 16156 + CanonPref 66860 + icons 2048+2048
  1339.             (set envname "CanonBJ5-230Pref")                 ; default preset
  1340.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJ200") ; usualy not installed... for future reasons...
  1341.             (set pagestreamv2 "CanonDisk_Install:PageStreamv2/BJ200.printer")
  1342.             (if (= brand 6)
  1343.             (
  1344.                 (set pagestreamv2 "CanonDisk_Install:PageStreamv2/BJ230.printer")
  1345.             ))
  1346.         ))
  1347.         (if (= brand 7)
  1348.         (  ; CanonBJ300
  1349.             (set driverpath "CanonDisk_Install:drivers/")
  1350.             (set drivername "CanonBJ300")
  1351.             (set prefpath "CanonDisk_Install:prefs/")
  1352.             (set prefname "CanonBJ300Pref")
  1353.             (set driversize 24462)   ; ~19984+1406+3072
  1354.             (set prefsize   65500)
  1355.             (set envname "CanonBJ300Pref")
  1356.         ))
  1357.     ))
  1358.  
  1359.     (if (= emul 1)
  1360.     (  ; CanonBJC
  1361.         (set brand  (askchoice (prompt #w-driver)
  1362.             (help #w-driver-help)
  1363.             (choices "Canon BJC 70"                ; 0
  1364.                 "Canon BJC 600, 600e"            ; 1
  1365.                 "Canon BJC 610"                ; 2
  1366.                 "Canon BJC 800, 820"            ; 3
  1367.                 "Canon BJC 4000"            ; 4
  1368.                 "Canon BJC 880"                         ; 5
  1369.             )
  1370.             (default 0)
  1371.         ))
  1372.  
  1373.         (if (= brand 0)
  1374.         (  ; CanonBJC70
  1375.             (set driverpath "CanonDisk_Install:drivers/")
  1376.             (set drivername "CanonBJEC")
  1377.             (set prefpath "CanonDisk_Install:prefs/")
  1378.             (set prefname "CanonBJECPref")
  1379.             (set driversize 56566)   ; ~46936+6558+3072
  1380.             (set prefsize   88700)
  1381.             (set envname "CanonBJECPref")
  1382.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJC70")
  1383.             (set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC600.printer")
  1384.         ))
  1385.  
  1386.         (if (= brand 1)
  1387.         (  ; CanonBJC600
  1388.             (set driverpath "CanonDisk_Install:drivers/")
  1389.             (set drivername "CanonBJEC")
  1390.             (set prefpath "CanonDisk_Install:prefs/")
  1391.             (set prefname "CanonBJECPref")
  1392.             (set driversize 56566)   ; ~46936+6558+3072
  1393.             (set prefsize   88700)
  1394.             (set envname "CanonBJECPref")
  1395.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJC600")
  1396.             (set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC600.printer")
  1397.         ))
  1398.  
  1399.         (if (= brand 2)
  1400.         (  ; CanonBJC610
  1401.             (set driverpath "CanonDisk_Install:drivers/")
  1402.             (set drivername "CanonBJEC")
  1403.             (set prefpath "CanonDisk_Install:prefs/")
  1404.             (set prefname "CanonBJECPref")
  1405.             (set driversize 56566)   ; ~46936+6558+3072
  1406.             (set prefsize   88700)
  1407.             (set envname "CanonBJECPref")
  1408.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJC600")
  1409.             (set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC600.printer")
  1410.         ))
  1411.  
  1412.         (if (= brand 3)
  1413.         (  ; CanonBJC800, 820
  1414.             (set driverpath "CanonDisk_Install:drivers/")
  1415.             (set drivername "CanonBJEC")
  1416.             (set prefpath "CanonDisk_Install:prefs/")
  1417.             (set prefname "CanonBJECPref")
  1418.             (set driversize 56566)   ; ~46936+6558+3072
  1419.             (set prefsize   88700)
  1420.             (set envname "CanonBJECPref")
  1421.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJC800")
  1422.             (set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC800.printer")
  1423.         ))
  1424.  
  1425.         (if (= brand 4)
  1426.         (  ; CanonBJC4000
  1427.             (set driverpath "CanonDisk_Install:drivers/")
  1428.             (set drivername "CanonBJEC")
  1429.             (set prefpath "CanonDisk_Install:prefs/")
  1430.             (set prefname "CanonBJECPref")
  1431.             (set driversize 56566)   ; ~46936+6558+3072
  1432.             (set prefsize   88700)
  1433.             (set envname "CanonBJECPref")
  1434.             (set presetname "CanonDisk_Install:DriverPresets/CanonBJC4000")
  1435.             (set pagestreamv2 "CanonDisk_Install:PageStreamv2/CanonBJC4000.printer")
  1436.         ))
  1437.         (if (= brand 5)
  1438.         (  ; CanonBJC880
  1439.             (abort #sorry)
  1440.         ))
  1441.     ))
  1442.  
  1443.     (if (= emul 2)
  1444.     (  ; CanonLBP CaPSL
  1445.         (set brand  (askchoice (prompt #w-driver)
  1446.             (help #w-driver-help)
  1447.             (choices "Canon LBP         (CaPSL 3)" ; 0
  1448.                 "Canon LBP (600dpi, CaPSL 4)" ; 1
  1449.             )
  1450.             (default 0)
  1451.         ))
  1452.         (abort #sorry)
  1453.     ))
  1454.     (if (= emul 3)
  1455.     (  ; Canon LBP PCL Emulation
  1456.         (abort #sorry)
  1457.     ))
  1458.     (if (= emul 4)
  1459.     (  ; Canon A1+A2
  1460.         (abort #sorry)
  1461.     ))
  1462.     (if (= emul 5)
  1463.     (  ; Canon BJC 880
  1464.         (abort #sorry)
  1465.     ))
  1466.  
  1467.  
  1468.     ; find the devs:printers directory
  1469.     (set driverdrawer "Devs:Printers")
  1470.     (set addmeter    1)
  1471.     (Meter)
  1472.     (if (= @user-level 2)
  1473.     (
  1474.         (set driverdrawer (askdir (prompt #ask-sys)
  1475.             (help #ask-sys-help)
  1476.             (default driverdrawer))
  1477.         )
  1478.     ))
  1479.     (set addmeter    1)
  1480.     (Meter)
  1481.     (if (not (exists driverdrawer))
  1482.     (
  1483.         (set driverdrawer (askdir (prompt #ask-sys)
  1484.             (help #ask-sys-help)
  1485.             (default driverdrawer))
  1486.         )
  1487.     ))
  1488.     (set addmeter    1)
  1489.     (Meter)
  1490.     (set targetsize (getdiskspace driverdrawer))
  1491.      (if (< targetsize driversize)
  1492.     (
  1493.         (if (<> (getdevice driverdrawer) "RAM")
  1494.         (
  1495.             (message (#yellspace driversize (getdevice driverdrawer)))
  1496.             (set n 0)
  1497.             (set flag 0)
  1498.             (while (set thisfile (select n  #tdel0
  1499.                 #tdel1
  1500.                 #tdel2
  1501.                 #tdel3
  1502.                 #tdel4
  1503.                 #tdel5
  1504.                 #tdel6
  1505.                 #tdel7
  1506.                 #tdel8
  1507.                 #tdel9
  1508.                 #tdel10
  1509.                 #tdel11
  1510.                 #tdel12
  1511.                 #tdel13
  1512.                 #tdel14
  1513.                 #tdel15
  1514.                 #tdel16
  1515.                 "" ))
  1516.             (
  1517.                 (set thiscomment (select n  #del0
  1518.                     #del1
  1519.                     #del2
  1520.                     #del3
  1521.                     #del4
  1522.                     #del5
  1523.                     #del6
  1524.                     #del7
  1525.                     #del8
  1526.                     #del9
  1527.                     #del10
  1528.                     #del11
  1529.                     #del12
  1530.                     #del13
  1531.                     #del14
  1532.                     #del15
  1533.                     #del16
  1534.                     "" ))
  1535.                 (set n (+ n 1))
  1536.                 (set targetsize (getdiskspace driverdrawer))
  1537.                 (if (< targetsize driversize)
  1538.                 (
  1539.                     (set devthisfile (tackon (cat (getdevice driverdrawer) ":") thisfile))
  1540.                     (if (exists devthisfile)
  1541.                     (
  1542.                         (set flag 1)
  1543.                         (if (askbool (prompt (#full-delete devthisfile thiscomment))
  1544.                             (help (#full-delete-help ))
  1545.                             (choices #full-delete-1 #full-delete-2)
  1546.                             (default 1))
  1547.                         (
  1548.                             (protect devthisfile "+rwed")
  1549.                             (delete  devthisfile)
  1550.                             (protect (cat devthisfile ".info") "+rwed")
  1551.                             (delete (cat devthisfile ".info"))
  1552.                         ))
  1553.                     ))
  1554.                 ))
  1555.             ))
  1556.             (set targetsize (getdiskspace driverdrawer))
  1557.             (if (< targetsize driversize)
  1558.             (
  1559.                 (if (= flag 1)
  1560.                 (
  1561.                     (abort (#tofull (getdevice driverdrawer) driversize))
  1562.                 )
  1563.                 (
  1564.                     (abort (#tofull2 (getdevice driverdrawer) driversize))
  1565.                 ))
  1566.             ))
  1567.         ))
  1568.     ))
  1569.     (set addmeter    1)
  1570.     (Meter)
  1571.     (if (<> (exists "devs:printer.device") 1)
  1572.     (
  1573.         (message #nodevice)
  1574.     ))
  1575.     (if (<> (exists "devs:parallel.device") 1)
  1576.     (
  1577.         (message #nopardevice)
  1578.     ))
  1579.     (if (<> (exists "ENV:") 2)
  1580.     (
  1581.         (abort #noenv)
  1582.     ))
  1583.     (if (<> (exists "ENVARC:") 2)
  1584.     (
  1585.         (abort #noenvarc)
  1586.     ))
  1587.     (set addmeter    1)
  1588.     (Meter)
  1589.     ; **** find the sys:prefs directory
  1590.     (set prefdisk ("SYS:Prefs"))
  1591.     (if (> diskbased 0)
  1592.     (
  1593.         (set prefdisk (askdir (prompt (#ask-prefsdisk disknumber))
  1594.             (help #ask-prefs-help)
  1595.             (default "Canon:"))
  1596.         )
  1597.         (set firstdisk prefdisk)
  1598.         (set prefdisk (tackon prefdisk "Prefs"))
  1599.         (if (<> (exists prefdisk) 2)
  1600.         (
  1601.             (makedir (prefdisk)
  1602.                 (infos)
  1603.             )
  1604.         ))
  1605.     )
  1606.     (
  1607.         (if (exists "sys:preferences")
  1608.         (
  1609.             (set prefdisk ("SYS:Preferences"))
  1610.         ))
  1611.         (if (exists "SYS:Prefs")
  1612.         (
  1613.             (set prefdisk ("SYS:Prefs"))
  1614.         ))
  1615.         (set prefdisk (askdir (prompt #ask-prefs)
  1616.             (help #ask-prefs-help)
  1617.             (default prefdisk))
  1618.         )
  1619.     ))
  1620.     (set addmeter    1)
  1621.     (Meter)
  1622.     (if (not (exists prefdisk))
  1623.     (
  1624.         (set prefdisk (askdir (prompt #ask-prefs)
  1625.             (help #ask-prefs-help)
  1626.             (default prefdisk))
  1627.         )
  1628.     ))
  1629.     (set addmeter    1)
  1630.     (Meter)
  1631.     (if (<> pagestreamv2 "")
  1632.     (
  1633.         (if (askbool (prompt (#pagestream))
  1634.             (help (#pagestream-help ))
  1635.             (choices #pagestream-yes #pagestream-no))
  1636.         (
  1637.             (set pagedrawer (askdir (prompt #ask-pagestream)
  1638.                 (help #ask-pagestream-help)
  1639.                 (default "WORK:")
  1640.             ))
  1641.             (if( exists (pagedrawer))
  1642.             (
  1643.                 (working #waitmsg)
  1644.                 (set exerr (run (cat "T:lx x " pagestreamv2 ".lzh" " \"" pagedrawer "\"")))
  1645.                 (if (> exerr 0)
  1646.                 (
  1647.                     (abort (#abortunpack prefname))
  1648.                 ))
  1649.             ))
  1650.         ))
  1651.     ))
  1652.     (working #waitmsg)
  1653.     (makeassign "DRIVERPARENT" prefdisk)
  1654.     (set addmeter    1)
  1655.     (Meter)
  1656.     (set exerr (run (cat "T:lx x " driverpath drivername ".lzh \"" driverdrawer "\"")))
  1657.     (if (> exerr 0)
  1658.     (
  1659.         (abort (#abortunpack drivername))
  1660.     ))
  1661.     (set addmeter    5)
  1662.     (Meter)
  1663.     (set exerr (run (cat "T:lx x " prefpath prefname ".lzh \"DRIVERPARENT:\"")))
  1664.     (if (> exerr 0)
  1665.     (
  1666.         (abort (#abortunpack prefname))
  1667.     ))
  1668.     (set addmeter    6)
  1669.     (Meter)
  1670.     (if (<> setupname "")
  1671.     (
  1672.         (set exerr (run (cat "T:lx x " setupname " \"DRIVERPARENT:\"")))
  1673.         (if (> exerr 0)
  1674.         (
  1675.             (abort (#abortunpack setupname))
  1676.         ))
  1677.     ))
  1678.     (if (exists "ENV:")
  1679.     (
  1680.         (delete (cat "ENV:" envname))
  1681.     ))
  1682.     (if (exists "ENVARC:")
  1683.     (
  1684.         (delete (cat "ENVARC:" envname))
  1685.     ))
  1686.     (set addmeter    3)
  1687.     (Meter)
  1688.     (if (<> presetname "")
  1689.     (
  1690.         (if (= (exists presetname) 1)
  1691.         (
  1692.             (copyfiles (source presetname)
  1693.                 (dest "ENV:")
  1694.                 (newname envname)
  1695.                 (nogauge)
  1696.             )
  1697.  
  1698.         )
  1699.         (
  1700.             (set presetname (cat presetname ".lzh"))
  1701.             (if (= (exists presetname) 1)
  1702.             (
  1703.                 (set exerr (run (cat "T:lx x " presetname " ENV:")))
  1704.                 (if (> exerr 0)
  1705.                 (
  1706.                     (abort (#abortunpack presetname))
  1707.                 ))
  1708.             ))
  1709.         ))
  1710.         (if (= (exists (cat "ENV:" envname)) 1)
  1711.         (
  1712.             (if (exists "ENVARC:")
  1713.             (
  1714.                 (copyfiles (source (cat "ENV:" envname))
  1715.                     (dest "ENVARC:")
  1716.                     (newname envname)
  1717.                     (nogauge)
  1718.                 )
  1719.             ))
  1720.         ))
  1721.     ))
  1722.     (set addmeter    3)
  1723.     (Meter)
  1724.     (if (> diskbased 0)
  1725.     (
  1726.         (set docdisk prefdisk)
  1727.     )
  1728.     (
  1729.         (set docdisk (askdir (prompt #ask-docs)
  1730.             (help #ask-docs-help)
  1731.             (default prefdisk))
  1732.         )
  1733.     ))
  1734.     (set addmeter    2)
  1735.     (Meter)
  1736.     (if (not (exists docdisk))
  1737.     (
  1738.         (set docdisk (askdir (prompt #ask-docs)
  1739.             (help #ask-docs-help)
  1740.             (default docdisk))
  1741.         )
  1742.     ))
  1743.     (set addmeter    1)
  1744.     (Meter)
  1745.     (working #waitmsg)
  1746.     (makeassign "DRIVERPARENT" docdisk)
  1747.     (set targetsize (getdiskspace docdisk))
  1748.     (if (< targetsize 120000)
  1749.     (
  1750.         (if (<> (getdevice docdisk) "RAM")
  1751.         (
  1752.             (abort #abortdocs)
  1753.         ))
  1754.     ))
  1755.     (set addmeter    1)
  1756.     (Meter)
  1757.     (set exerr (run (cat "T:lx x CanonDisk_Install:docs/driver" docfile ".lzh \"DRIVERPARENT:\"")))
  1758.     (if (> exerr 0)
  1759.     (
  1760.         (abort (#abortunpack (cat "Driver" docfile ".lzh")))
  1761.     ))
  1762.     (set addmeter    5)
  1763.     (Meter)
  1764.     (makeassign "DRIVERPARENT")
  1765. ))
  1766. (if (IN studio 2)  ; Studio Application Prgm.
  1767. (
  1768.     (set addmeter    1)
  1769.     (Meter)
  1770.     (if (> diskbased 0)
  1771.     (
  1772.         (if (<> firstdisk "")
  1773.         (
  1774.             (set target firstdisk)
  1775.         )
  1776.         (
  1777.             (set target (askdir (prompt (#ask-studiodisk disknumber))
  1778.                 (default "Canon:")
  1779.                 (help #ask-studio-help))
  1780.             )
  1781.         ))
  1782.     )
  1783.     (
  1784.         (set guessdrawer (getassign "WORK" "d"))
  1785.         (if (= guessdrawer "")
  1786.         (
  1787.             (set guessdrawer (getassign "DH0" "d"))
  1788.             (if (= guessdrawer "")
  1789.             (
  1790.                 (set guessdrawer (getassign "DH2" "d"))
  1791.                 (if (= guessdrawer "")
  1792.                 (
  1793.                     (set guessdrawer "SYS:")
  1794.                 ))
  1795.             ))
  1796.         ))
  1797.         (set target (askdir (prompt #ask-studio)
  1798.             (help #ask-studio-help)
  1799.             (default guessdrawer))
  1800.         )
  1801.     ))
  1802.     (set addmeter    1)
  1803.     (Meter)
  1804.     (set @default-dest target)
  1805.     (working #waitmsg)
  1806.     (set targetsize (getdiskspace target))
  1807.     (if (< targetsize 350000)
  1808.     (
  1809.         (if (<> (getdevice target) "RAM")
  1810.         (
  1811.             (abort (#tofullstudio (getdevice target) 350000))
  1812.         ))
  1813.     ))
  1814.     (set addmeter    1)
  1815.     (Meter)
  1816.     (makeassign "STUDIOPARENT" target)
  1817.     (set target (tackon target "CanonStudio"))
  1818.     (if (= (exists target) 1)
  1819.     (
  1820.         (rename target (cat target "_V1.xx_OLD"))
  1821.         (if (= (exists (cat target ".info")) 1)
  1822.         (
  1823.             (rename (cat target ".info") (cat target "_V1.xx_OLD.info"))
  1824.         ))
  1825.     ))
  1826.     (set addmeter    3)
  1827.     (Meter)
  1828.     (working #waitmsg)
  1829.     (set exerr (run (cat "T:lx x CanonDisk_Install:CanonStudio/CanonStudio.lzh \"STUDIOPARENT:\"")))
  1830.     (if (> exerr 0)
  1831.     (
  1832.         (abort (#abortunpack "CanonStudio.lzh"))
  1833.     ))
  1834.     (set addmeter    7)
  1835.     (Meter)
  1836.     (set exerr (run (cat "T:lx x CanonDisk_Install:docs/CanonStudio" docfile ".lzh \"STUDIOPARENT:\"")))
  1837.     (if (> exerr 0)
  1838.     (
  1839.         (abort (#abortunpack (cat "CanonStudio" docfile ".lzh")))
  1840.     ))
  1841.     (makeassign "STUDIOPARENT")
  1842.     (set addmeter    7)
  1843.     (Meter)
  1844. ))
  1845.  
  1846.  
  1847.  
  1848. (if (IN studio 1)
  1849. (
  1850.     (set addmeter    1)
  1851.     (Meter)
  1852.     (message (#finalmsg drivername (tackon prefdisk prefname)))
  1853.     (if (exists "sys:prefs/printer")
  1854.     (
  1855.         (run "sys:prefs/printer")
  1856.     )
  1857.     (
  1858.         (if (exists "sys:prefs/preferences")
  1859.         (
  1860.             (run "sys:prefs/preferences")
  1861.         ))
  1862.     ))
  1863.     (set addmeter    1)
  1864.     (Meter)
  1865.     (run "T:check")
  1866.     (delete "T:check")
  1867.     (if (not (exists "RAM:StudioTemp"))
  1868.     (
  1869.         (message #wrongdither)
  1870.         (if (exists "sys:prefs/printergfx")
  1871.         (
  1872.             (run "sys:prefs/printergfx")
  1873.         ))
  1874.     )
  1875.     ( ; else
  1876.         (delete "RAM:StudioTemp")
  1877.     ))
  1878.     (set addmeter    1)
  1879.     (Meter)
  1880.     (run (cat "\""
  1881.         (tackon prefdisk prefname)
  1882.         "\""))
  1883.     (set addmeter    1)
  1884.     (Meter)
  1885. ))
  1886. (if (> studio 0)
  1887. (
  1888.     (run "T:lx n")
  1889.     (delete "T:lx")
  1890.     (delete "T:check")
  1891.     (delete "RAM:StudioTemp")
  1892. ))
  1893. (makeassign "CanonDisk_Install")
  1894. (complete 100)
  1895.